home *** CD-ROM | disk | FTP | other *** search
- ; Format of copperlist:
-
- COPSCRNBUFF:
- dc.l 0
-
- ;104*80 lots of $1fe0000 initially.
-
- ;$106,$c42
- ;$80
- ;pch: 0
- ;$82
- ;pcl: 0
- ;
- ;$88,$0
- ;
- ;Length= (104*80*4)+16
-
- INITCOPPERSCRN:
- ; Get Screen memory
-
- ; move.l #2,d1
- ; move.l #(104*80*4)+16,d0
- ; move.l 4.w,a6
- ; jsr -198(a6)
- ; move.l d0,COPSCRN1
-
- ; move.l #2,d1
- ; move.l #(104*80*4)+16,d0
- ; move.l 4.w,a6
- ; jsr -198(a6)
- ; move.l d0,COPSCRN2
-
- ; move.l #1,d1
- ; move.l #(104*80*4)+16,d0
- ; move.l 4.w,a6
- ; jsr -198(a6)
- ; move.l d0,COPSCRNBUFF
-
- ; move.l COPSCRN1,a1
- ; move.l COPSCRN2,a2
-
- ; move.w #(104*80)-1,d0
- ; move.l #$1fe0000,d1
- ;clrcop:
- ; move.l d1,(a1)+
- ; move.l d1,(a2)+
- ; dbra d0,clrcop
-
- ; add.l #104*4*80,a1
- ; add.l #104*4*80,a2
- ; move.l #$1060c42,(a1)+
- ; move.l #$1060c42,(a2)+
- ; move.w #$80,(a1)+
- ; move.w #$80,(a2)+
- ;
- ; move.l #PanelCop,d0
- ; swap d0
- ; move.w d0,(a1)+
- ; move.w d0,(a2)+
- ; move.w #$82,(a1)+
- ; move.w #$82,(a2)+
- ; swap d0
- ; move.w d0,(a1)+
- ; move.w d0,(a2)+
- ; move.l #$880000,(a1)+
- ; move.l #$880000,(a2)+
- ; clr.b BIGsmall
- ; jsr putinsmallscr
- rts
-
-